home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / rupert report (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  766 b   |  31 lines
  1. 0 rem--ahoy--mar issue--rupert report---prog page 19
  2. 5 rem rupert report
  3. 10 rem listing 1 - logic1
  4. 20 print chr$(147) :rem clear screen
  5. 30 true=-1:false=0
  6. 35 rem==================================
  7. 40 rem >> if  a$ , or if b$ and c$,
  8. 50 rem >> then t$
  9. 60 rem >> otherwise f$
  10. 65 rem==================================
  11. 70 a$="it is raining"
  12. 80 b$="it is sunny"
  13. 90 c$="the temp. is above 100"
  14. 100 t$="we will stay inside"
  15. 110 f$="we will go outside"
  16. 115 print"if "a$" or if "b$"  and "c$",then "t$
  17. 120 print:print"--respond t or f--"
  18. 130 printa$;:input a1$
  19. 140 printb$;:input b1$
  20. 150 printc$;:input c1$
  21. 160 a=true:b=true:c=true
  22. 170 if a1$="f" then a=false
  23. 180 if b1$="f" then b=false
  24. 190 if c1$="f" then c=false
  25. 200 d$=f$
  26. 210 if a or (b and c) then d$=t$
  27. 220 print d$
  28. 230 print:print"(press any key to continue)"
  29. 240 get z$:if z$=""then 240
  30. 250 goto 120
  31.